home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle 2001 #11 / CD 11 (Black) - 2001.iso / Fruity / ROLLUPS.DXR / 00008_FRUIT.ls < prev    next >
Encoding:
Text File  |  1998-04-13  |  1.2 KB  |  20 lines
  1. property pFruitCarpetSptOrder, pFruitCarpetFullList, pCarpetStatusList, pCarpetLocList
  2.  
  3. on new me
  4.   set pFruitCarpetSptOrder to [:]
  5.   set pFruitCarpetSptOrder to [10: [#CstNum: 34, #loc: point(286, 58)], 11: [#CstNum: 39, #loc: point(286, 125)], 12: [#CstNum: 44, #loc: point(286, 189)]]
  6.   set pFruitCarpetFullList to [:]
  7.   set pFruitCarpetFullList to [34: [50, 51, 52, 53], 39: [54, 55, 56, 57], 44: [58, 59, 60, 61]]
  8.   set pCarpetStatusList to [:]
  9.   set pCarpetStatusList to [34: [63, 64, 65, 66], 39: [67, 68, 69, 70], 44: [71, 72, 73, 74]]
  10.   set pCarpetLocList to [:]
  11.   set pCarpetLocList to [34: [point(255, 42), point(324, 37), point(327, 82), point(253, 86)], 39: [point(247, 98), point(259, 147), point(317, 98), point(329, 147)], 44: [point(251, 169), point(330, 199), point(309, 164), point(262, 215)]]
  12.   repeat with n = 1 to count(pFruitCarpetSptOrder)
  13.     puppetSprite(getPropAt(pFruitCarpetSptOrder, n), 1)
  14.     set the locV of sprite getPropAt(pFruitCarpetSptOrder, n) to the locV of sprite getPropAt(pFruitCarpetSptOrder, n) - 250
  15.     set the memberNum of sprite getPropAt(pFruitCarpetSptOrder, n) to getAt(getAt(pFruitCarpetSptOrder, n), 1)
  16.     updateStage()
  17.   end repeat
  18.   return me
  19. end
  20.